home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / c_windw / warble1.c < prev    next >
Text File  |  1987-12-28  |  640b  |  25 lines
  1. /*  (c) Marietta Systems, Inc.  1987
  2. *   All rights reserved
  3. *
  4. *   demonstration program for functions warble and idleloop
  5. */
  6. #include "mtest.h"
  7. void main(){
  8. int a, x = 1;
  9. char text[30];
  10. clr_scrn("Warble test");
  11. /*
  12. *    set an descending range of tones
  13. */
  14. for (a = 100 ; a <= 4000 ; a += 100) {
  15.      warble(a);
  16.      sprintf(text,"The tone is %d",a);
  17.      display(text, x++, x, high);
  18.      idleloop(9);  /* about half a second */
  19.      }
  20. disp_msg("Press any key to switch off the speaker",1); 
  21. read_kb();
  22. warble(0);
  23. goodbye(0);
  24. }
  25.